(set #unpacking "Rozpakowujë program AmiBroker do katalogu:\n")
(set #unpackingFPU "Rozpakowujë program AmiBroker.FPU do katalogu:\n")
(set #dearchiving "Rozpakowujë archiwum i instalujë nowe notowania do katalogu:\n")
(set #limiting (cat "Poniewaû Twoja Amiga jest wyposaûona w niewielkâ iloôê pamiëci (mniej niû 2MB) "
"muszë ograniczyê iloôê notowaï w bazie danych do 100"))
(set #oldkeyfile "Masz zainstalowanâ starâ wersjë pliku kluczowego 'broker.key'.\nBëdziesz musiaî zarejestrowaê sië ponownie by uûywaê wszystkich funkcji AmiBrokera." )
))
; ******* main install part
; set up an error cleanup routine
(onerror
(makeassign "AmiBrokerinstpgm" (safe))
)
; check OS version
(if (< (/ (getversion) 65536) 37)
(
(message #badkick)
(exit (quiet))
)
)
;just started
(complete 0)
(message #welcome)
(welcome)
;cancel the assign in case of installation restart
(makeassign "AmiBrokerinstpgm" (safe))
; get the dest dir for AmiBroker
(set AmiBroker_dest
(tackon
(askdir
(prompt #destination)
(help @askdir-help)
(default @default-dest)
)
"AmiBroker"
)
)
(complete 10)
;We now have a valid destination, so tell Installer where AmiBroker will end up